home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9103.zip / WINDOWER.BAS < prev    next >
BASIC Source File  |  1991-03-01  |  2KB  |  46 lines
  1. ' $INCLUDE: 'C:\BC71\INCLUDES\WINDOW.BI'
  2. ' $INCLUDE: 'C:\BC71\INCLUDES\MENU.BI'
  3. ' $INCLUDE: 'C:\BC71\INCLUDES\MOUSE.BI'
  4. ' $INCLUDE: 'C:\BC71\INCLUDES\GENERAL.BI'
  5.  
  6. COMMON SHARED /uitools/ GloMenu           AS MenuMiscType
  7. COMMON SHARED /uitools/ GloTitle()        AS MenuTitleType
  8. COMMON SHARED /uitools/ GloItem()         AS MenuItemType
  9. COMMON SHARED /uitools/ GloWindow()       AS windowType
  10. COMMON SHARED /uitools/ GloButton()       AS buttonType
  11. COMMON SHARED /uitools/ GloEdit()         AS EditFieldType
  12. COMMON SHARED /uitools/ GloStorage        AS WindowStorageType
  13. COMMON SHARED /uitools/ GloWindowStack()  AS INTEGER
  14. COMMON SHARED /uitools/ GloBuffer$()
  15.  
  16. DIM GloTitle(MAXMENU)           AS MenuTitleType
  17. DIM GloItem(MAXMENU, MAXITEM)   AS MenuItemType
  18. DIM GloWindow(MAXWINDOW)        AS windowType
  19. DIM GloButton(MAXBUTTON)        AS buttonType
  20. DIM GloEdit(MAXEDITFIELD)       AS EditFieldType
  21. DIM GloWindowStack(MAXWINDOW)   AS INTEGER
  22. DIM GloBuffer$(MAXWINDOW + 1, 2)
  23.  
  24.         DEFINT A-Z
  25.  
  26.         CLS
  27.  
  28.         CALL MenuInit
  29.         CALL WindowInit
  30.         CALL MouseShow
  31.  
  32.         CALL WindowOpen(1, 10, 20, 15, 30, 2, 1, 2, 1, 15, TRUE, TRUE, TRUE, TRUE, 0, "My Window")
  33.         CALL WindowLocate(1, 1)
  34.         CALL WindowPrint(1, "Hi there.")
  35.  
  36.         DO
  37.             CALL WindowDo(1, 0)
  38.             WindowAction = Dialog(0)
  39.         LOOP WHILE (WindowAction <> 4 AND WindowAction <> 9)
  40.  
  41.         CALL WindowClose(0)
  42.         CALL MouseHide
  43.  
  44.         END
  45.  
  46.